Imports System.Net.Mail
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim googleMailPortNumber As Integer = "587" ' OR 465
            Dim userName As String = "username@gmail.com"
            Dim passWord As String = "mypassword"
            Dim msgMail As MailMessage
            Dim smtp As SmtpClient
            msgMail = New MailMessage("username@gmail.com", "username@gmail.com", "Subject", "Body")
            smtp = New SmtpClient("smtp.gmail.com", googleMailPortNumber)
            smtp.EnableSsl = True
            smtp.DeliveryMethod = SmtpDeliveryMethod.Network
            smtp.Credentials = New System.Net.NetworkCredential(userName, passWord)
            smtp.Send(msgMail)
            MessageBox.Show("Sent!", "Sent", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.None)
        End Try
    End Sub
End Class
